data(instacart)
instacart_df =
instacart |>
select(
order_id, product_id, order_number, order_hour_of_day, product_name, aisle, department, department_id
)
instacart_df |>
group_by(department) |>
plot_ly(x = ~department, y = ~order_hour_of_day, color = ~department,
type = "box", colors = "viridis")